home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00478_Field_478.txt < prev    next >
Text File  |  1994-06-14  |  484b  |  18 lines
  1. MECH ,  79
  2. --================================================================= 
  3. on mAnimateBall me
  4.   -- see if the ball is in contact with any mech part
  5.   set touching = mTestContact (me)
  6.   if (not (touching)) then
  7.     -- not touching any mech part, test if in vacumm field
  8.     set sucking =  mTestSuction (me)
  9.     if (not(sucking)) then
  10.       -- not in suction field of vacumm Chute so just move the ball
  11.       mMoveBall (me)
  12.     end if
  13.   end if
  14. end mAnimateBall
  15.  
  16.  
  17.  
  18.